home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / HyperCard / CambridgeMedlineTutor / ccMedTut2 / card_22409.txt < prev    next >
Encoding:
Text File  |  1992-02-24  |  2.7 KB  |  120 lines
  1. -- card: 22409 from stack: in
  2. -- bmap block id: 22779
  3. -- flags: 0000
  4. -- background id: 11419
  5. -- name: 
  6. ----- HyperTalk script -----
  7. --Handlers below are not very elegant, but they work - should be able to put the EnterInField script as part of On ArrowKey handler, under option that goes to next card, but I can't get this to work - does work this way, mapping arrow action to another handler - Chose Enter InField just because it's a handler that won't ever be used for any thing else [in fact, can't be used for most part, because stack is pro tected & user can't get cursor in field]
  8.  
  9. On ArrowKey which
  10.   if which is "down" then EnterInField
  11.   else if which is "right" then beep
  12.   else if which is "left" then beep
  13.   else if which is "up" then beep
  14. End ArrowKey
  15.  
  16. On EnterInField
  17.   go next
  18. End EnterInField
  19.  
  20.  
  21.  
  22. -- part 8 (field)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=142 top=133 right=166 bottom=259
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 256
  32. -- line height: 16
  33. -- part name: 
  34.  
  35.  
  36. -- part 9 (field)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=143 top=165 right=184 bottom=317
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 2048
  46. -- line height: 16
  47. -- part name: 
  48.  
  49.  
  50. -- part 10 (field)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=142 top=181 right=237 bottom=311
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 256
  60. -- line height: 16
  61. -- part name: 
  62.  
  63.  
  64. -- part 12 (field)
  65. -- low flags: 00
  66. -- high flags: 2004
  67. -- rect: left=36 top=258 right=330 bottom=451
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 18
  75. -- part name: red
  76.  
  77.  
  78. -- part contents for card part 3
  79. ----- text -----
  80. ... and now hit the up arrow key to move the highlight back to Menus...
  81.  
  82. -- part contents for card part 8
  83. ----- text -----
  84. Menus
  85. Commands
  86.  
  87. -- part contents for card part 9
  88. ----- text -----
  89. Change Configuration
  90.  
  91. -- part contents for card part 10
  92. ----- text -----
  93. Dos commands
  94. change compact Disc
  95. eXit
  96.  
  97. -- part contents for background part 2
  98. ----- text -----
  99. 88
  100.  
  101. -- part contents for background part 3
  102. ----- text -----
  103. Main Menu
  104.  
  105. -- part contents for background part 5
  106. ----- text -----
  107. card id 42013
  108.  
  109. -- part contents for background part 8
  110. ----- text -----
  111. 42013
  112.  
  113. -- part contents for background part 11
  114. ----- text -----
  115.  
  116.  
  117.  
  118. -- part contents for card part 12
  119. ----- text -----
  120.    Move the highlight down to "change compact Disc," with the down arrow ...